home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1987 March / Ahoy_Magazine_87-03_1987_Double_L.d64 / Round About (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  34 lines
  1. 0 print"[147]":poke53280,0:poke53281,0:poke646,1
  2. 1 print"commodares problem #35-1"
  3. 2 print"  round about"
  4. 3 rem solution by
  5. 4 rem     fred simon
  6. 5 rem  *** for c-64 ***
  7. 9 rem ===  for ccw motion:
  8. 10 rem *remove  rem  from lines 150
  9. 15 rem   and 220
  10. 20 rem *add  rem  to start of lines 140
  11. 25 rem   and 210
  12. 30 rem *change cc=22481 in line 40
  13. 35 rem   to cc=22587
  14. 40 cc=22481
  15. 50 input"enter string:";w$:w$=chr$(32)+w$+chr$(32)
  16. 60 sp=20 :rem # of 1/60th second delays  between interrupts
  17. 70 for ad=49152 to 49311:read x:poke ad,x :ck=ck+x:next
  18. 80 if ck<>cc then print  "error in data statements" : end
  19. 90 poke 49284,len(w$):for i=1 to len(w$):poke 49311+i,asc(mid$(w$,i,1)):next
  20. 100 poke 792,0:poke 793,192:poke 56589,127:poke 56589,130:poke 56580,26
  21. 110 poke 56581,20:poke 56590,17:poke 56582,sp:poke 56583,0
  22. 120 print chr$(14)chr$(147):poke 56591,81:end
  23. 130 data 72,138,72,152,72,160,0,185,0,0,153,0,193,200,208,247,132,251,173,159
  24. 140 data 192,201,126,144,5,169,0,141,159,192,133,252,165,252,41,127
  25. 150 rem data 192,234,234,16,5,169,125,141,159,192,133,252,165,252,41,127
  26. 160 data 201,40,176,9,133,211,169,0,133,214,76,110,192,233,39,201,25,176,9,133
  27. 170 data 214,169,39,133,211,76,110,192,233,24,201,40,176,15,133,250,169,40
  28. 180 data 229,250,133,211,169,24,133,214,76,110,192,233,39,201,24,144,7,230
  29. 190 data 252,230,252,76,32,192,133,250,169,25,229,250,133,214,169,0,133,211
  30. 200 data 32,108,229,174,158,192,164,251,185,160,192,168,32,24,234,230,252
  31. 210 data 230,251,165,251,201,13,176,3,76,32,192,238,159,192,160,0,185
  32. 220 rem data 230,251,165,251,201,13,176,3,76,32,192,206,159,192,160,0,185
  33. 230 data 0,193,153,0,0,200,208,247,172,13,221,76,94,254,1,0
  34.